package AddonKey;

use strict;
use warnings;

BEGIN {
    use Exporter ();
    our ( $VERSION, @ISA, @EXPORT, @EXPORT_OK, %EXPORT_TAGS );

    $VERSION     = sprintf( "%d", q$Revision$ =~ m{\d+} );
    @ISA         = qw(Exporter);
    @EXPORT      = qw(&addon_name_to_key);
    %EXPORT_TAGS = ();
    @EXPORT_OK   = qw();
} ## end BEGIN

sub addon_name_to_key($ );

sub addon_name_to_key($ ) {
    my $key = shift;
    $key = uc $key;
    $key =~ s{^\!*}{};
    $key =~ s{^blizzard_.*}{%BLIZZARD%};
    return $key;
} ## end sub addon_name_to_key($ )

1;
